//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SrcDial.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSrcDialog *SrcDialog;
//---------------------------------------------------------------------------
__fastcall TSrcDialog::TSrcDialog(TComponent* Owner)
        : TForm(Owner)
{
        this->DelStrings = new TStringList;
        DelStrings->Add("used modify field value: scale"); 
}
//---------------------------------------------------------------------------

void __fastcall TSrcDialog::Button1Click(TObject *Sender)
{
        this->ModalResult = sdDelete;
}
//---------------------------------------------------------------------------

TMemo* TSrcDialog::GetMemo()
{
        return this->DelMemo;
}

void __fastcall TSrcDialog::CheckBoxClick(TObject *Sender)
{
        String as = this->DelStrings->Strings[((TCheckBox*)Sender)->Tag];
        if ( ((TCheckBox*)Sender)->Checked )
        {
                this->DelMemo->Lines->Add(as);
        }
        else
        {
                this->DelMemo->Lines->Delete(this->DelMemo->Lines->IndexOfName(as));
        }
}
//---------------------------------------------------------------------------
void __fastcall TSrcDialog::Button2Click(TObject *Sender)
{
        this->ModalResult = sdSelect;        
}
//---------------------------------------------------------------------------
